



use "${pathdata_robustness}/RobustnessExperiment5.dta", clear




* belief impact by prompt vs. non-prompt - pooling treatments 1+3 (baseline + NoStory) and 2+4 (Prompt and NoStoryPrompt).

preserve

	collapse (mean) effect effect_recall (sem) imm_sem = effect del_sem = effect_recall, by(prompt)	 
	rename imm_sem sem0
	rename del_sem sem1
	rename effect dev0
	rename effect_recall dev1
	reshape long sem dev, i(prompt) j(delay)
	gen upper=dev+sem
	gen lower=dev-sem

	tw (scatter dev delay if prompt == 1, connect(l) lcolor(black*1.5) lpattern(dash)   msize(vlarge) ms(d) mcolor(black*1.5)) ///
			(rcap upper lower delay if prompt == 1, lw(medthick) lcolor(black*1.5)) ///
	(scatter dev delay if prompt == 0, connect(l) lcolor(red*1.5) lpattern(dash)   msize(vlarge) ms(o) mcolor(red*1.5)) ///
		(rcap upper lower delay if prompt == 0, lw(medthick) lcolor(red*1.5)),	///
	ytitle("Mean belief impact {c 177} SEM" "(percentage points)") ///
		xtitle(" ") xsc(r(-0.5 1.5) lcolor(none)) ysc(r(0 20) lcolor(none)) ///
		yline(0, lcolor(gs10) lwidth(thin)) ///
		graphregion(color(white)) ///
		title("Belief impact in {it:Immediate} and {it:Delay}",  margin(b=3) color(black)) ///
		legend( order(1 "Prompt" 3 "No prompt") ) ysc(r(0)) ///
		ylabel(0 5 10 15 20, tlc(none) angle(0) glcolor(gs15) glwidth(thin)) ///
		xlabel(0 "Immediate" 1 "1-day delay") ysize(5) xsize(10)
		graph export "${pathout_robustness}/figures/figureA7a.pdf", replace
		
		
		
		
		
		
		restore


* Combined Recall by prompt vs. non-prompt - pooling treatments 1+3 (baseline + NoStory) and 2+4 (Prompt and NoStoryPrompt)

preserve




	collapse (mean) combined_recall (sem) stderr = combined_recall, by (prompt)

	gen h = combined_recall + stderr
	gen l = combined_recall - stderr


	tw (scatter combined_recall prompt if prompt == 0, mcolor(red*1.5) )  ///
	(rcap h l prompt if prompt == 0, lw(medthick) lcolor(red*1.5)) ///
	(scatter combined_recall prompt if prompt == 1, mcolor(black*1.5) ms(d) ) ///
	(rcap h l prompt if prompt == 1, lw(medthick) lcolor(black*1.5)), ///
	graphregion(color(white)) ysc(r(0 0.6)) ylab(0(0.1)0.6, angle(horizontal) tlc(none)  glcolor(gs15) glwidth(thin))  ysc(lcolor(none))  xsc(r(-0.5 1.5) lcolor(none)) ///
		 		yline(0, lcolor(gs10) lwidth(thin)) ///
	 	title("Correct recall of information type and valence",  color(black)) ysize(5) xsize(10) ///
xlab(0 "No prompt" 1 "Prompt" ,valuelabel) xtitle("Condition") ytitle(" " "Mean Rate  {c 177} SEM") leg(off)
	graph export "${pathout_robustness}/figures/figureA7b.pdf", replace
